/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_11 / hints / colouredit

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 40 f4 20 3e 20 | 43 6f 6c 6f 75 72 45 64 |...@. > |ColourEd|
|00000010| 69 74 20 20 20 20 20 4d | 61 6b 65 20 61 20 63 6f |it     M|ake a co|
|00000020| 6c 6f 75 72 20 63 75 72 | 73 6f 72 20 66 6f 72 20 |lour cur|sor for |
|00000030| 74 68 65 20 42 41 53 49 | 43 20 45 64 69 74 6f 72 |the BASI|C Editor|
|00000040| 0d 00 14 20 f4 20 42 79 | 20 4d 61 72 74 69 6e 20 |... . By| Martin |
|00000050| 53 69 6d 6d 6f 6e 73 20 | 31 31 2f 30 37 2f 38 39 |Simmons |11/07/89|
|00000060| 0d 00 1e 46 f4 20 49 20 | 75 73 65 20 79 65 6c 6c |...F. I |use yell|
|00000070| 6f 77 20 62 61 63 6b 67 | 72 6f 75 6e 64 2c 20 62 |ow backg|round, b|
|00000080| 6c 75 65 20 66 6f 72 65 | 67 72 6f 75 6e 64 2c 20 |lue fore|ground, |
|00000090| 72 65 64 20 63 75 72 73 | 6f 72 20 28 31 3d 36 20 |red curs|or (1=6 |
|000000a0| 45 4f 52 20 37 29 0d 00 | 28 04 0d 00 32 49 63 6f |EOR 7)..|(...2Ico|
|000000b0| 6c 6f 75 72 25 3d 36 20 | 20 3a f4 20 2a 2a 2a 2a |lour%=6 | :. ****|
|000000c0| 20 43 48 41 4e 47 45 20 | 54 48 49 53 20 4c 49 4e | CHANGE |THIS LIN|
|000000d0| 45 20 54 4f 20 43 48 41 | 4e 47 45 20 54 48 45 20 |E TO CHA|NGE THE |
|000000e0| 43 4f 4c 4f 55 52 20 28 | 45 4f 52 20 37 29 20 2a |COLOUR (|EOR 7) *|
|000000f0| 2a 2a 2a 0d 00 3c 11 de | 20 62 75 66 25 20 26 31 |***..<..| buf% &1|
|00000100| 30 30 30 30 0d 00 46 2c | ff 20 22 4c 6f 61 64 20 |0000..F,|. "Load |
|00000110| 3a 41 70 70 32 2e 4d 6f | 64 75 6c 65 73 2e 42 61 |:App2.Mo|dules.Ba|
|00000120| 73 69 63 45 64 69 74 20 | 22 2b c3 7e 62 75 66 25 |sicEdit |"+.~buf%|
|00000130| 0d 00 50 11 50 25 3d 62 | 75 66 25 2b 26 38 31 45 |..P.P%=b|uf%+&81E|
|00000140| 34 0d 00 5a 3e 5b 20 53 | 57 49 20 20 26 31 30 30 |4..Z>[ S|WI  &100|
|00000150| 2b 63 6f 6c 6f 75 72 25 | 20 20 20 20 20 20 20 20 |+colour%|        |
|00000160| 20 20 20 20 20 3b 43 68 | 61 6e 67 65 20 62 61 63 |     ;Ch|ange bac|
|00000170| 6b 67 72 6f 75 6e 64 20 | 70 61 6c 65 74 74 65 0d |kground |palette.|
|00000180| 00 64 05 5d 0d 00 6e 2a | 7a 69 25 3d 62 75 66 25 |.d.]..n*|zi%=buf%|
|00000190| 2b 26 38 33 32 30 3a 7a | 69 25 2b 3d 38 2b 34 2a |+&8320:z|i%+=8+4*|
|000001a0| 28 28 21 7a 69 25 3c 3c | 38 29 3e 3e 38 29 0d 00 |((!zi%<<|8)>>8)..|
|000001b0| 78 30 77 69 6e 64 25 3d | 62 75 66 25 2b 26 38 33 |x0wind%=|buf%+&83|
|000001c0| 31 30 3a 77 69 6e 64 25 | 2b 3d 38 2b 34 2a 28 28 |10:wind%|+=8+4*((|
|000001d0| 21 77 69 6e 64 25 3c 3c | 38 29 3e 3e 38 29 0d 00 |!wind%<<|8)>>8)..|
|000001e0| 82 11 50 25 3d 62 75 66 | 25 2b 26 38 33 31 30 0d |..P%=buf|%+&8310.|
|000001f0| 00 8c 16 5b 20 53 57 49 | 20 20 22 4f 53 5f 57 72 |...[ SWI|  "OS_Wr|
|00000200| 69 74 65 53 22 0d 00 96 | 3a 20 20 45 51 55 42 20 |iteS"...|:  EQUB |
|00000210| 31 37 20 3a 20 45 51 55 | 42 20 31 32 38 2b 63 6f |17 : EQU|B 128+co|
|00000220| 6c 6f 75 72 25 20 20 20 | 20 3b 53 65 74 20 62 61 |lour%   | ;Set ba|
|00000230| 63 6b 67 72 6f 75 6e 64 | 20 63 6f 6c 6f 75 72 0d |ckground| colour.|
|00000240| 00 a0 31 20 20 45 51 55 | 42 20 31 32 20 20 20 20 |..1  EQU|B 12    |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000260| 20 20 20 3b 43 6c 65 61 | 72 20 73 63 72 65 65 6e |   ;Clea|r screen|
|00000270| 0d 00 aa 38 20 20 45 51 | 55 42 20 32 33 20 3a 20 |...8  EQ|UB 23 : |
|00000280| 45 51 55 42 20 31 36 20 | 3a 20 45 51 55 42 20 31 |EQUB 16 |: EQUB 1|
|00000290| 20 20 20 20 3b 53 65 74 | 20 63 75 72 73 6f 72 20 |    ;Set| cursor |
|000002a0| 6d 6f 76 65 6d 65 6e 74 | 0d 00 b4 1a 20 20 45 51 |movement|....  EQ|
|000002b0| 55 53 20 c4 34 2d 28 50 | 25 20 80 20 33 29 2c bd |US .4-(P|% . 3),.|
|000002c0| 30 29 0d 00 be 0c 20 20 | 42 4c 20 7a 69 25 0d 00 |0)....  |BL zi%..|
|000002d0| c8 0e 20 20 42 4c 20 77 | 69 6e 64 25 0d 00 d2 05 |..  BL w|ind%....|
|000002e0| 5d 0d 00 dc 31 e8 27 22 | 45 6e 74 65 72 20 6e 65 |]...1.'"|Enter ne|
|000002f0| 77 20 66 69 6c 65 20 6e | 61 6d 65 20 66 6f 72 20 |w file n|ame for |
|00000300| 74 68 65 20 65 64 69 74 | 6f 72 3a 20 22 66 69 6c |the edit|or: "fil|
|00000310| 65 24 0d 00 e6 27 ff 20 | 22 53 61 76 65 20 22 2b |e$...'. |"Save "+|
|00000320| 66 69 6c 65 24 2b 22 20 | 22 2b c3 7e 62 75 66 25 |file$+" |"+.~buf%|
|00000330| 2b 22 20 2b 39 34 42 34 | 22 0d 00 f0 1d ff 20 22 |+" +94B4|"..... "|
|00000340| 53 65 74 54 79 70 65 20 | 22 2b 66 69 6c 65 24 2b |SetType |"+file$+|
|00000350| 22 20 46 46 41 22 0d ff |                         |" FFA"..|        |
+--------+-------------------------+-------------------------+--------+--------+